Вывод цветного текста на основной экран программой PR-STRING (8252)

God Mode:

Debugger			; Открыть отладчик для ввода данных
Dec				; Переключить отображение чисел в десятичный режим
Go To 23296			; Переместиться по памяти на нужный адрес
23296 <-- 22 11 6 16 3		; Координаты и цвет первой строки текста
23301 <--B numepckux napagkax	; Первая строка текста
23321 <-- 22 12 10 16 2		; Координаты и цвет второй строки текста
23326 <--mycum ronoma		; Вторая строка текста
23612 <-- 32			; Выключить тумблер №0 для вывода на основной экран и включить №5 для подавления курсора
23613 <-- 65364			; Установить накладку на вершину SP-столбика для корректного возврата в BASIC
65364 <-- 4777			; Задать программу возврата в BASIC в режим ожидания 
BC <-- 42			; Количество выводимых символов, включая управляющие
DE <-- 23296			; Задать адрес размещения выводимого текста
SP <-- 65364			; Подготовка SP к возврату в BASIC после выполнения программы
PC <-- 8252			; Установить Стрелочку на запускаемую подпрограмму вывода текста PR-STRING
Trace				; Выйти из отладчика и запустить программу


Assembler EmuZWin:

	ORG 23296

	LD (IY+2), 32		; Выключить тумблер №0 для вывода на основной экран и включить №5 для подавления курсора 
	LD DE, TEKCT		; Задать адрес размещения текста
	LD BC, KOHETC-TEKCT    	; Вычислить количество символов, включая управляющие
	CALL 8252		; Вызвать подпрограмму вывода текста PR-STRING
	LD SP, 65364
	LD (23613), SP		; Установить накладку на вершину SP-столбика для корректного возврата в BASIC
	POP AF			; Срезать SP столбик под корень
	JP 4777			; Выйти на поверхность в режим ожидания


TEKCT:	DEFB 22, 11, 6, 16, 3, 'B numepckux napagkax'
	DEFB 22, 12, 10, 16, 2,'mycum ronoma'
KOHETC:
